home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / crcset11.zip / TESTCRC.PAS < prev    next >
Pascal/Delphi Source File  |  1990-11-16  |  618b  |  35 lines
  1. {
  2. TESTCRC.PAS
  3.  
  4. Kevin Dean
  5. Fairview Mall P.O. Box 55074
  6. 1800 Sheppard Avenue East
  7. Willowdale, Ontario
  8. CANADA    M2J 5B9
  9. CompuServe ID: 76336,3114
  10.  
  11. November 16, 1990
  12.  
  13.     This program demonstrates the anti-virus CRC algorithm in VALIDCRC.PAS.
  14. The response to an invalid CRC is entirely up to the programmer.
  15.  
  16.     This code is public domain.
  17. }
  18.  
  19.  
  20. program TestCRC;
  21.  
  22.  
  23. uses
  24.   ValidCRC;
  25.  
  26.  
  27. begin
  28. if IsValidCRC('TESTCRC.EXE') then
  29.   WriteLn('CRC is valid.')
  30. else
  31.   begin
  32.   WriteLn('*** WARNING *** Program''s CRC is invalid.');
  33.   WriteLn('This program may have been infected by a virus.')
  34.   end
  35. end.